home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / allcrack / frmmain.frm < prev    next >
Text File  |  1999-10-05  |  9KB  |  326 lines
  1. VERSION 5.00
  2. Begin VB.Form Main 
  3.    AutoRedraw      =   -1  'True
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "Microsoft Internet Explorer Sim"
  6.    ClientHeight    =   855
  7.    ClientLeft      =   0
  8.    ClientTop       =   0
  9.    ClientWidth     =   1680
  10.    Icon            =   "frmMain.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    LockControls    =   -1  'True
  13.    MaxButton       =   0   'False
  14.    Picture         =   "frmMain.frx":030A
  15.    ScaleHeight     =   855
  16.    ScaleWidth      =   1680
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.PictureBox Picture2 
  20.       Appearance      =   0  'Flat
  21.       AutoSize        =   -1  'True
  22.       BackColor       =   &H80000005&
  23.       BorderStyle     =   0  'None
  24.       ForeColor       =   &H80000008&
  25.       Height          =   330
  26.       Left            =   165
  27.       Picture         =   "frmMain.frx":572E
  28.       ScaleHeight     =   330
  29.       ScaleWidth      =   345
  30.       TabIndex        =   2
  31.       Top             =   2880
  32.       Width           =   345
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       Appearance      =   0  'Flat
  36.       AutoSize        =   -1  'True
  37.       BackColor       =   &H80000005&
  38.       BorderStyle     =   0  'None
  39.       ForeColor       =   &H80000008&
  40.       Height          =   330
  41.       Left            =   1290
  42.       Picture         =   "frmMain.frx":66B2
  43.       ScaleHeight     =   330
  44.       ScaleWidth      =   345
  45.       TabIndex        =   1
  46.       Top             =   480
  47.       Width           =   345
  48.    End
  49.    Begin VB.Timer Timer1 
  50.       Enabled         =   0   'False
  51.       Interval        =   2000
  52.       Left            =   5325
  53.       Top             =   690
  54.    End
  55.    Begin VB.PictureBox Picture3 
  56.       Appearance      =   0  'Flat
  57.       AutoSize        =   -1  'True
  58.       BackColor       =   &H80000005&
  59.       BorderStyle     =   0  'None
  60.       ForeColor       =   &H80000008&
  61.       Height          =   330
  62.       Left            =   165
  63.       Picture         =   "frmMain.frx":7636
  64.       ScaleHeight     =   330
  65.       ScaleWidth      =   345
  66.       TabIndex        =   3
  67.       Top             =   2880
  68.       Width           =   345
  69.    End
  70.    Begin VB.Image Image8 
  71.       Height          =   255
  72.       Left            =   765
  73.       Picture         =   "frmMain.frx":85BA
  74.       Top             =   2880
  75.       Width           =   255
  76.    End
  77.    Begin VB.Image Image7 
  78.       Height          =   255
  79.       Left            =   1380
  80.       Picture         =   "frmMain.frx":9282
  81.       Top             =   45
  82.       Width           =   255
  83.    End
  84.    Begin VB.Image Image5 
  85.       Height          =   255
  86.       Left            =   510
  87.       Picture         =   "frmMain.frx":9F4A
  88.       Top             =   2880
  89.       Width           =   255
  90.    End
  91.    Begin VB.Image Image4 
  92.       Height          =   255
  93.       Left            =   1125
  94.       Picture         =   "frmMain.frx":AC12
  95.       Top             =   45
  96.       Width           =   255
  97.    End
  98.    Begin VB.Label Label1 
  99.       Alignment       =   2  'Center
  100.       BackStyle       =   0  'Transparent
  101.       Caption         =   "Start"
  102.       BeginProperty Font 
  103.          Name            =   "MS Sans Serif"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   700
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       ForeColor       =   &H00FFFFFF&
  112.       Height          =   240
  113.       Left            =   90
  114.       TabIndex        =   4
  115.       Top             =   525
  116.       Width           =   1155
  117.    End
  118.    Begin VB.Image Image2 
  119.       Height          =   330
  120.       Left            =   165
  121.       Picture         =   "frmMain.frx":B8DA
  122.       Top             =   2550
  123.       Width           =   1245
  124.    End
  125.    Begin VB.Image Image1 
  126.       Height          =   330
  127.       Left            =   45
  128.       Picture         =   "frmMain.frx":D7D6
  129.       Top             =   480
  130.       Width           =   1245
  131.    End
  132.    Begin VB.Label Label5 
  133.       BackStyle       =   0  'Transparent
  134.       Height          =   360
  135.       Left            =   45
  136.       TabIndex        =   0
  137.       Top             =   45
  138.       Width           =   1080
  139.    End
  140.    Begin VB.Image Image6 
  141.       Height          =   255
  142.       Left            =   525
  143.       Picture         =   "frmMain.frx":F6D2
  144.       Top             =   2880
  145.       Width           =   255
  146.    End
  147.    Begin VB.Image Image3 
  148.       Height          =   330
  149.       Left            =   165
  150.       Picture         =   "frmMain.frx":1039A
  151.       Top             =   2550
  152.       Width           =   1245
  153.    End
  154.    Begin VB.Image Image9 
  155.       Height          =   255
  156.       Left            =   765
  157.       Picture         =   "frmMain.frx":12296
  158.       Top             =   2880
  159.       Width           =   255
  160.    End
  161. End
  162. Attribute VB_Name = "Main"
  163. Attribute VB_GlobalNameSpace = False
  164. Attribute VB_Creatable = False
  165. Attribute VB_PredeclaredId = True
  166. Attribute VB_Exposed = False
  167. Dim c
  168. Private Sub Form_Load()
  169. Dim retn As String
  170. retn = GetSetting("IE5 Sim", "IE5 Sim", "1")
  171. If retn = "1" Then
  172. Call Shell("C:\Program Files\AllAdvantage.com\Viewbar\Viewbar.exe")
  173. End If
  174. c = 1
  175. Me.Show
  176. With nid
  177. .cbSize = Len(nid)
  178. .hwnd = Main.hwnd
  179. .uId = vbNull
  180. .uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
  181. .uCallBackMessage = WM_MOUSEMOVE
  182. .hIcon = Main.Icon
  183. .szTip = "AllAdvantage Crack" & vbNullChar
  184. End With
  185. Shell_NotifyIcon NIM_ADD, nid
  186. End Sub
  187. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  188. Dim Result As Long, msg As Long
  189. If Me.ScaleMode = vbPixels Then
  190. msg = X
  191. Else
  192. msg = X / Screen.TwipsPerPixelX
  193. End If
  194. Select Case msg
  195. Case WM_LBUTTONUP
  196. Me.WindowState = vbNormal
  197. Result = SetForegroundWindow(Me.hwnd)
  198. Me.Show
  199. If Help.restore.Caption = "Restore" Then
  200. Help.restore.Caption = "Minimize"
  201. End If
  202. Case WM_LBUTTONDBLCLK
  203. Me.WindowState = vbNormal
  204. Result = SetForegroundWindow(Me.hwnd)
  205. Me.Show
  206. If Help.restore.Caption = "Restore" Then
  207. Help.restore.Caption = "Minimize"
  208. End If
  209. Case WM_RBUTTONUP
  210. Me.PopupMenu Help.MnuMain
  211. End Select
  212. End Sub
  213. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  214. Shell_NotifyIcon NIM_DELETE, nid
  215. End Sub
  216. Private Sub Form_Resize()
  217. If Me.WindowState = vbMinimized Then Me.Hide
  218. End Sub
  219. Private Sub Form_Terminate()
  220. Shell_NotifyIcon NIM_DELETE, nid
  221. End
  222. End Sub
  223. Private Sub Form_Unload(Cancel As Integer)
  224. Shell_NotifyIcon NIM_DELETE, nid
  225. End Sub
  226. Private Sub Image1_Click()
  227. If Label1.Caption = "Start" Then
  228. Label1.Caption = "Stop"
  229. Timer1.Enabled = True
  230. ElseIf Label1.Caption = "Stop" Then
  231. Label1.Caption = "Start"
  232. Timer1.Enabled = False
  233. End If
  234. End Sub
  235. Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  236. Image1 = Image3
  237. End Sub
  238. Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  239. Image1 = Image2
  240. End Sub
  241. Private Sub Image4_Click()
  242. Shell_NotifyIcon NIM_DELETE, nid
  243. End
  244. End Sub
  245. Private Sub Image4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  246. Image4 = Image6
  247. End Sub
  248. Private Sub Image4_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  249. Image4 = Image5
  250. End Sub
  251. Private Sub Image7_Click()
  252. If Help.restore.Caption = "Restore" Then
  253. Help.restore.Caption = "Minimize"
  254. Else
  255. Help.restore.Caption = "Restore"
  256. End If
  257. If Help.restore.Caption = "Restore" Then
  258. Help.restore.Caption = "Minimize"
  259. Else
  260. Help.restore.Caption = "Restore"
  261. End If
  262. Me.WindowState = vbMinimized
  263. Me.Hide
  264. End Sub
  265. Private Sub Image7_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  266. Image7 = Image9
  267. End Sub
  268. Private Sub Image7_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
  269. Image7 = Image8
  270. End Sub
  271. Private Sub Label1_Click()
  272. If Label1.Caption = "Start" Then
  273. Label1.Caption = "Stop"
  274. Timer1.Enabled = True
  275. ElseIf Label1.Caption = "Stop" Then
  276. Label1.Caption = "Start"
  277. Timer1.Enabled = False
  278. End If
  279. End Sub
  280. Private Sub Label1_